]> permondes.de Git - Analog_Engine.git/blame - scripts/Radioactive Decay.AESL
Application Gravity
[Analog_Engine.git] / scripts / Radioactive Decay.AESL
CommitLineData
2faffece
P
1IDENTIFICATION DIVISION
2PROGRAM-ID Radioactive_Decay
3
4ENVIRONMENT DIVISION
5ENGINE Anabrid-THAT
6e8a1392
P
6REQUIRES COEFFICIENT 2
7REQUIRES INTEGRATOR 1
8REQUIRES INVERTER 1
2faffece
P
9
10DATA DIVISION
f25252dd 11OUTPUT OUTPUT.X N
6e8a1392
P
12COEFFICIENT.1 InitialValue
13COEFFICIENT.2 Decay
2faffece
P
14
15PROGRAM DIVISION
6e8a1392
P
16+1 -> COEFFICIENT.InitialValue -> N0
17N’, IC:N0 -> INTEGRATOR -> -N
18-N -> COEFFICIENT.Decay -> -lambda*N=N’
19-N -> INVERTER -> N
2faffece
P
20
21OPERATION DIVISION
22MODE REPEAT
23OP-TIME 20ms